home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group4 / OCXSIMP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-08  |  3.2 KB  |  112 lines
  1. VERSION 4.00
  2. Begin VB.Form SimpleForm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Simple cc:Mail example v1.60"
  5.    ClientHeight    =   1620
  6.    ClientLeft      =   1305
  7.    ClientTop       =   1890
  8.    ClientWidth     =   6225
  9.    Height          =   1995
  10.    Left            =   1260
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1620
  15.    ScaleWidth      =   6225
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1560
  18.    Width           =   6315
  19.    Begin VB.CommandButton Command4 
  20.       Caption         =   "Fetch neXt"
  21.       Height          =   375
  22.       Left            =   4800
  23.       TabIndex        =   5
  24.       Top             =   120
  25.       Width           =   1215
  26.    End
  27.    Begin VB.CommandButton Command3 
  28.       Caption         =   "Fetch FIRST"
  29.       Height          =   375
  30.       Left            =   3240
  31.       TabIndex        =   4
  32.       Top             =   120
  33.       Width           =   1335
  34.    End
  35.    Begin VB.TextBox Text1 
  36.       Height          =   285
  37.       Left            =   1200
  38.       TabIndex        =   2
  39.       Text            =   "Text1"
  40.       Top             =   840
  41.       Width           =   4815
  42.    End
  43.    Begin VB.CommandButton Command2 
  44.       Caption         =   "Login cc:Mail"
  45.       Height          =   375
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   120
  49.       Width           =   1335
  50.    End
  51.    Begin VB.CommandButton Command1 
  52.       Caption         =   "MessageCount"
  53.       Height          =   375
  54.       Left            =   1680
  55.       TabIndex        =   0
  56.       Top             =   120
  57.       Width           =   1335
  58.    End
  59.    Begin Mailx16Lib.MForm MForm1 
  60.       Left            =   720
  61.       Top             =   480
  62.       _version        =   65542
  63.       _extentx        =   9340
  64.       _extenty        =   500
  65.       _stockprops     =   0
  66.       mxformname      =   "FormTag1"
  67.    End
  68.    Begin Mailx16Lib.MSess MSess1 
  69.       Left            =   120
  70.       Top             =   1080
  71.       _version        =   65542
  72.       _extentx        =   900
  73.       _extenty        =   900
  74.       _stockprops     =   0
  75.       mail_type       =   2
  76.    End
  77.    Begin Mailx16Lib.MMsg MMsg1 
  78.       Left            =   840
  79.       Top             =   1080
  80.       _version        =   65542
  81.       _extentx        =   900
  82.       _extenty        =   900
  83.       _stockprops     =   0
  84.       markasread      =   0   'False
  85.       bindstring      =   "MSess1"
  86.    End
  87.    Begin VB.Label Label1 
  88.       Caption         =   "Subject:"
  89.       Height          =   255
  90.       Left            =   240
  91.       TabIndex        =   3
  92.       Top             =   840
  93.       Width           =   855
  94.    End
  95. Attribute VB_Name = "SimpleForm"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Private Sub Command1_Click()
  99.     MsgBox MMsg1.MsgCount
  100. End Sub
  101. Private Sub Command2_Click()
  102.     MSess1.Logon = True
  103. End Sub
  104. Private Sub Command3_Click()
  105.     MMsg1.Action = ACTION_FINDFIRST
  106.     Text1 = MMsg1.Subject
  107. End Sub
  108. Private Sub Command4_Click()
  109.     MMsg1.Action = ACTION_FINDNEXT
  110.     Text1 = MMsg1.Subject
  111. End Sub
  112.